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‘MODULE ACCDEF( IDENT = ‘V04-000" ) = 


' 
leueeeeecereneneeneeteetennrenerenreneenntnententenenneeneerererereceteereees 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS A gts | tae UNDER A LICENSE AND MAY BE USED AND ald 
‘* ONLY IN ACCORDANCE WITH THE TERMS OF vets” LICENSE AN - etre THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER 
‘® COPIES THEREOF MAY i BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
= Fuanerehetee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ comPokat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR oy en ive OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


aeeeeeneeneeeeeeaeennenaenane 


i eeeeerereneererteeereereenereeteneneeeeeeeeeeeneeeneneeteeeeeteeeeeeeeeetense 


lee 


FACILITY: ACC, Account file dumper 
ABSTRACT: 


This file contains definitions of general applicability to 
the accounting facility 


ENVIRONMENT : 


i 

i 

i 

i 

i 

i 

i 

VAX/VMS operating system. unprivileged user mode, 
AUTHOR: Greg Robert and Steve Forgey, January 1982 
Modified by: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


VO3-002 TMHO002 Tim Halvorsen 14-Apr-1984 
Remove MOVE_QUAD macro, which now exists in UTILDEF. 
v03-001 passoet avid Solomon 03-Jan-1984 


8 
emove two week Shared message definitions (CREATED and 
EXISTS). Change declaration of message codes from ACC_ to ACC$_. 
Add literal for summation table index. Add ACCS 1 NVACTREC. 
Al Low error code LIB$_INPSTRTRU on call to SCRSGET SCREEN in 
GET_REPLY macro. 


' PPS SSS SSS SSSSSSSSSSSSSSSSSSSSSSSSSSSS2S2S2S2S22 wren eww erm ese = So eeeeceo eSeeeoeeweoeeeee ont 


i PROGRAM CONTROL i 
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i Seer eae eo ORO Beeeneeeee cece ecewre eau anreeeaeawrwe aera renee en eer e nae eneroecn ean aeaeroeca a 


SWITCHES 
ADDRESSING_MODE ( 
agente 
NONE KTERNAL CHORD *RELATIVE); 
PSECT 


LIBRARY *SYSSLIBRARY: TPAMAC'; ' TPARSE macros 


CODE= CODE, | 
PLIT= CODE | 
OWN= DATACADDRESSING_MODE (LONG_RELATIVE)), 
GLOBAL = DATA; | 
' ewe wr Nw HP Re ERO BE HORE BRE BOE BEE ORE BEDE BOSE EOD wee Ke eee Oe Set ee se Se ewe ee ew ewes > eee ea 
‘ ' 
INCLUDE FILES | 
i ee ae wr wre rer ose & OS Dee BS ee SS Swe Sw & ewe ee oO ee = aan wene ctr nee nvre se we ewer ewewe me See Owe eS | | 
LIBRARY *SYSSLIBRARY:STARLET*; ! VAX/VMS common definitions | 
REQUIRE "SHRLIBS:UTILDEF'; ! Common VMS/DEVELOPMENT macros 
| 
| 
} 
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' SPOOF DSBS BSS SBE SSS SSS BOSSA SSGGOGSSGGOSSSSSSSSSSSSOSSOSSSESSEeewen > 
} DEFINE EXTERNAL REFERENCES 


i wemeeewewoooeoecoooeeewowoewccccccccccccccccccccccccccccccccccccccccccceccccss 


EXTERNAL LITERAL 


ACCS_INVACCREC, ! Invalid accounting record format 
ACC$_TOTAL, ! Totals selected/rejected message 
ACCS_MERGE, ! "Merge phase beginning’’ message 
ACC$_INPUT ! File name/number message 
ACCS"TITLETRUNC; ! Title truncation warning 


EXTERNAL ROUTINE 


ADD_SYMBOL , ! Add a symbol to a symbol table 
ALLOCATE ! Gets virtual memory 

FIND WATERMARK, ! Determine high watermarks 
HANDCER, ' Local signal processor 
LIBSADDX ! Extended binary addition 
LIB$CVT_6T8, ! Converts decimal to binary 
LIBSCVT_HTB ' Converts hex to binary 
LIBSCVT~TIME, ' Converts ascii to binary time 
LIBSDAY ' Gets deys since epoch 
LIBSFILE SCAN, ! Does wildcarding and stickiness 
LIBSICHAR ! Converts charater to integer 
LIBSLOOKUP_KEY, ! Searches keyword Lists 
L1IB$S ! Extended precision subtract 
LIB$SYS_ASCTIM, ! Converts inary time to ascii 
LIBSSYS_FAO, ! Formatted ascii output 
LIBSSYS_FAOL, !' Library FAO routine 
LIBSTPARSE ! Library parse routine 
LOG FILENAME, ! Signals filenames and error messages 
OORUP_ SYMBOL ' Lookup a symbol in a symbol table 
MAP_QUALIFIERS i Establish qualifer maps 

OUTPUT FILES, ' Sets up output fabs, rabs 
RELEASE TO SORT, ! Build eys and release to sort 
mi S, ! Call action routine for every symbol 

SHOW RECORD ! Dispatch to output routines 
SORSEND_ SORT i Clean up files etc. ’ 
SORSINIT SORT i Initialize sort routines 
SORSRELEASE REC, i SORT32 record interface routine 
SORSRETURN_REC, ! Fetch a sorted record 

SORSSORT MERGE, ! Initiate merge processing 
STRSAPPERD ! Appends strings 

STRSCOMPARE , ! Compares two strings 
STRSDUPL_CHAR, ! Generates a oyring 

STRSLEFT ! Extract left justified substring 
STRSPREF IX ! Prefix strings 

STRSREPLACE, ' Replaces substrings 

TRSRIGHT ! Strips leading strings 
STRIP_NEGATOR, ! Chec fetrie L6ading negator 

TRIP_TRAIL, ! Strip trailing garbage 

RIZE, ! Summation main control loop 


ACCDEF .REQ;1 
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Converts times 
ooks status messages 
tput bar graph 
Output a binary record 
Output summary at end of file 
Output totals at end of program 


Be Se Be Se Oe Se Be Se Se Be Se Se Se Se Se Se Se Se Fe Se Ge Ge Se FH Fe Fe Se Ge Se we Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se ae 
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' See eee eee BOD eM TOE SRO ORO ESE HOWE SMS SMCS SEBO BOSE SCeT ees eece see eee e eee es eaeee eae % 
1 i 
DEFINE INTERNAL MACROS 
i —————orererereee aa 


MACRO 


‘COMPARE QUADWORD VALUES-- 

: Macro to soppere two quadword values using the user supplied 
operator. This macro is somewhat inefficent if the supplied 
operator is EQL or NEQL since the expansion becomes (in part): 


If Q1 EQL Q2 THEN IF Q1 EQL Q2 THEN TRUE ELSE FALSE 


1 

‘ 

| 

' 

; 

: However the complier may remove this inefficeny through optimization. 
: This macro works better for values that are close to one another as 

' it does the equality check of the high order words first. This 

; macro could be improved by inspecting the supplied operator and 

H generating a tailored macro. 


COMPARE QUAD (Q1, OPER, Q2) = 


A = Q1: VECTOR Fg -LONG ; 
Q2: VECTOR [2,LONG); 


-AC1) E€QL .BC1] THEN .ACOJ OPER .BC0] ELSE .AC1) OPER .BC1) 


) Macro to describe a string 

) Macro to generate a quadword string descriptor — 

) Macro to generate the address of a string descriptor 
) Macro to abbreviate last macro 


PRIMDESC C] = ZCHARCOUNT (2STRING (ZREMAIN 
(ZSTRING (ZREMAI 
INITDESC CJ = BBLOCK CDSC$C_S at 
(PRIMDESC (ZREMAINI 
ADDRDESC C} = UPLIT (PRIMDESC (ZREMAINING 
AD C = ADDRDESC (ZREMAINING)2, 


oor, 


=~ 22 


ING)) 
NING) )&, 
NG)) 
4, 


FIELD REFERENCE MACROS -- 
Define macros to reference fields. 


PE = 0,0,16,0%, ! Sort key type 
DER = 2,0,16, i. ' Sort order 
$ * 9. 18. ° ! Item position 
NGTH = 6,0,16,0%, ! Key Length 


Sa 


Ba Be Oe Oe Be Se Be Oe Se Se Oe Se Se Se Se Se Se Se FH Se Se FH Se Se Se Se Se Se Se SH Se Se HSH Oe Se Se Be Se SH Se Be we Se eee Oe OH Oe Oe 4 Oe Oe Se Se Se oe 
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SORT_TYPE = 0,0,16,0%, ! Sort key type (binary/char etc) 
SORT_DESC = 1,0,32,0%, ! Address of item descriptor 
SORT_LENGTH = 2,0,16,0%, i Max. Length of item in bytes 
2 
SIGNAL RETURN <= 
“Signal the given arguments and then return the first parameter. 
Signal_return (status) (] = 
BEGIN 
signal (status, %remaining); p 
return (status); é 
' : f 
‘PERFORM MACRO -- 
This renames the RETURN_IF_ERROR macro to be the PERFORM macro. 
PERFORM (COMMAND) = RETURN_IF_ERROR (COMMAND)%, ! #** HACK 
i EXPAND FAO STRING 
Expand an FAO directive and yeild the address of a descriptor 
of the resultant buffer. 
XFAO (DESC) = 
BEGIN 
EXTERNAL ROUTINE _LIBSSYS Te 6 apene 516s gOve (GENERAL); 
LOCAL $$buffer vector bate yte 
LOCAL $Sbuf fdesc: vector (C2, leaki: }; 
$$buf fdesc te ! Initialize descriptor length 
$$buf fdesc ssbutter: ! Initialize descriptor address 
signal_if_error (Lib$sys_fao ( 
esc ' Control string address 
$$buffdesc (0), } Resultant length 
$$buf fdesc ' Buffer descriptor 
X1F vanes 14 GTR 1 XTHEN , XREMAINING 2F 1 
$$buffdesc 
ENDZ, 


————__—_—____—— 
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KFAOL (DESC, LIST) = 


BEGIN 
EXTERNAL tah Na LIBSSYS_FAOL: ange MODE (GENERAL); 
LOCAL $$buffer: vector yt ed; 

LOCAL $$buf desc: vector 3! “tong 


$$buffdesc (0) 
$$buffdesc (1) 


signal_if_error (Lib$sys_faol ( 
esc, 
$$buffdesc (0), 


512; ! Initialize descriptor length 
$$buf fer; ! Initialize descriptor address 


Control string address 
Resultant Length 


$$buffdesc, Buffer descriptor 
th Arguement List 
$$buffdesc 
END2, 
CLI PARSING MACROS -- Si ‘ 


Determine if a command Line entity is present or get its value 


GET_PRESENT (DESC) : 
EXTERNAL ROUTINE CLISPRESENT: ADDRESSING MODE (GENERAL): 
CLISPRESENT (DESC) 

END, 
PRESENT (QUAL_NUMB) = 


BEGIN 
EXTERNAL QUALIFIERS: BITVECTOR (64); 
aa QUAL _NUMB) 


GET_VALUE a DESC) = 
BEGIN 


EXTERNAL ROUTINE CLISGET VALUE: SOORE SSNS -MODE (GENERAL); 
i Teeer VALUE (AD (STRING), DESC) 


! 
‘ATTRIBUTE DEFINITIONS 


BOL = SCRSM_BOLDS 
REVERSE = SCRSA-REVERSER, 
BLINK = SCRSM"BLI 

UNDERL INE = SCRSM~ BAPAC INES. 


ae 


<=> 
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iSET our) MACRO -- 


This macro establishes an output stream through the screen package. 


aoe ee FILENAME, USERSUB, ARGUEMENT, PREVIOUS) = 
EXTERNAL ROUTINE SCRSSET <pureute satel MODE (GENERAL); 


SIGNAL_IF ERROR (SCRSSET- - 
ZIF ZNULL (STR TREAR) RTHEN 1 ZELSE STREAM 2F I 
RIF ZNULL (FILENAME) RTHEN QO ZELSE FIL be AME ZF I, 
RIF ZNULL (USERSUB) ZTHEN Q ZELSE USERS UB Fi, 
RIF ZNULL (ARGUEMENT)  ZTHEN 0 ZELSE ARGUEMENT ZF I, 
<I1F een (PREVIOUS) RTHEN O ZELSE PREVIOUS ZF 1 
ENDZ, . 


SCREEN MACRO -- 
This macro invokes the screen package to determine output 


characteristics. 


SCREEN_INFO (BUFFER) = 
BEGI 


GIN 
EXTERNAL ROUTINE SCR$ 


SCREEN_INFO: ADDRESSING_MODE (GENERAL); 
SIGNAL_IF ERROR (SCRSSCREE »); 


E 
REEN_INFO (BUFFER)); 


GIN 
EXTERNAL SCREEN CHAR: BBLOCK CSCRSK LENGTH]; 
. SCREEN_CHAR 
LIF ZIDENTICAL (ARG, FLAGS) XTHEN SCRSL_FLAGS %F1 
XIF ZIDENTICAL (ARG, WIDTH) XTHEN SCRSW WIDTH ZF I 
XIF ZIDENTICAL (ARG. LENGTH) § X%THEN SCRSWTPAGESIZE %F1 
) ENE, ih RIDENTICAL (ARG, TYPE ZTHEN SCRSB-DEVTYPE XFI 


' 
iSET CURSOR -- 


SET_CURSOR (LINE, COLUMN) = 
BEGIN 


EXTERNAL ROUTINE SCRSSET_CURSOR: ADDRESSING MODE (GENERAL); 
SIGNAL _1F ERROR (SCRSSET~CURSOR (LINE, COLUMN) 


! 
iSET SCROLL == 


a 
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<> 


Establish a scrolling region 


SET_SCRO 


= 


TOP, BOTTOM) = 


( 
GIN 
TERNAL ROUTINE SCRSSET YapEROLLs eure -MODE (GENERAL); 
GNAL_IF ERROR (SCRSSET SCROLL 


TOP 
ZIF ZLENGTH GTR 1 2THEN , 2FI 
BOTTOM) ) 


L 
E 
x 
1 


vwn@w 


ENDS, 


‘ERASE SCREEN == 


ERASE_PAGE (LINE, COLUMN) = | 
BEGIN | 


EXTERNAL ROUTINE SCRSERASE_PAGE: ADDRESSING_MODE (GENERAL); 

SIGNAL IF ERROR (SCRSERA ASE "PA 
RIF NULL (LINE) ZTHEN 1 RELSE LINE ZF 1 | 
tir INULL COLUMN) RTHEN 1 XELSE COLUMN’ BF | 


ENDZ, 


, 
‘ERASE LINE~~ 


ERASE_LINE (LINE, COLUMN) = 
BEG 


EXTERNAL ROUTINE SCRSERASE_LINE: ADDRESSING MODE (GENERAL); 
sieuAl.. IF_ERROR (SCRSERASE_LINE (LINE, COLUMN) ) 


‘RITE TO SCREEN == 
Output a string to the screen with associated attributes at 


indicated cursor position. Do not append carriage control. 


ee te? LINE, COLUMN, ATTR) = 
EXTERNAL ROUTINE SCRSPUT_SCREEN: foeressins -MODE (GENERAL); 
SIGNAL_IF ERROR (SCRSPUT_SCREEN ( 
DESC, 
LINE, 
COLUMN, 
+i NULL (ATTR) ZTHEN O ZELSE ATTR ZF 1 
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END2, 
' 


iWRITE LINE TO SCREEN -- 
Output a i hs to the screen with associated attributes, 
scroll the indicated number of LINES, and append a carriage return. 


min ee LINES, ATTR) = 


EXTERNAL ROUTINE SCRSPUT_LINE: ADDRESSING_MODE (GENERAL); 
SIGNAL at: tee (SCRSPUT_LINE ( 


SC 
ZIF SNULL (LINES) ZTHEN 1 XELSE LINES X%FI, 
iF MNULL (ATTR) X%THEN O XELSE ATTR UF I 
ENDZ, 


WRITE FAO STRING TO SCREEN == 
Write a STRING to the screen at the given Line and 
column with no attributers after first processing it 
through FAO. 


WRITE_FAO_AT (DESC,LINE,COLUMN) = 
WRITE_AT ( | 


XFAO (DESC 
~ ZLENGTH GTR 3 2THEN , ZREMAINING 2F1 


LINE,” 
COLUMN, | 
0)% 


! GET INPUT 


GET_REPLY (REPLY, PROMPT, LENGTH) = 
BEGIN 


EXTERNAL gg SCRSGET_SCREEN: ADDRESSING_MODE (GENERAL); 
EXTERNAL LITERA 
LI6$_ INPSTRIRU; 


LOCAL 
STATUS; 


ZIF ZNULL (REPLY) XTHEN 
LOCAL 3 th 
TEMPDESC: VECTOR (2); 


SSTEMPDESC. oy = = 4; 
SSTEMPDESC = $$TEmMP; 
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“Fl 
STATUS = SCRSGET_SCREEN 
aIF XNULC CREBUY) XTHEN SSTEMPDESC XELSE REPLY 2FI, 
LENGTHS : 
IF NOT .STATUS AND ( .STATUS NEQU LIBS_INPSTRTRU ) 
" BEGIN 


SIGNAL( .STATUS ); 
RETURN «STATUS; 


END; 
ENDZ, 


iSET AND FLUSH BUFFER 


SET_BUFFER (BUFFER) = 
BEGIN 


EXTERNAL ROUTINE SCRSSET_BUFFER: ADDR 


ESSING_MODE (GENERAL); 
pea IF_ERROR (SCRSSET BUFFER (BUFFER)) 


PUT_BUFFER (BUFFER) = 
BEG 


EXTERNAL ROUTINE SCRSPUT_BUFFER: ADDRE 


SSING_MODE (GENERAL); 
SicyAl IF_ERROR (SCRSPUT_BUFFER (BUFFER)) 


‘LOOKUP MACRO -=- 
+ ha macro invokes Lib$Slookup_key and, if the lookup fails, 
signals the user with the status and the failed value and 


urns to the caller. 


LOOKUP (KEY, TABLE, RESULT) = 


LOCAL St ROUTINE LIBSLOOKUP_KEY: ADDRESSING_MODE (GENERAL); 


US; 
F NOT (STATUS = LIBSLOOKUP_KEY (rev TABLE, RESULT)) 
THEN SIGNAL TRETURN (MSG$_SYRTAX, 1, KEY); 


! THIS RENAMES THE SBYTEOFFSET MACRO TO BE SBOF* FOR BREVITY 


SBOFF (arg) = SBYTEOFFSET (arg); ! Make a shorter name 
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Sa 


] were eon enews wen nmreomrn reno nBZ eB noe ewnnwenmaneranonreecr mec ene er eowernecwen con wmee eave aaoe as & 


DEFINE INTERNAL STRUCTURES ; 


a 
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' SOS SO FOS SS FSS OSS OS FOSS FS OSS BSS SS SF FOSS OS SS SS SSSSSSSSSSSSSSVSSSSSSSSSSZOSSZESZEOSS 


i DEFINE MESSAGE CODES i 


i eeeueecesssoscususoesooserccesocscesessesesssessosesososcauecesesessosoososesos 


SSHR_MESSAGES (MSG,159, ! COMMON 1/0 AND MISC. MESSAGES 


' eeeeeere eeeneeeeaene eeeaeenrerzaaeeeee 

: * NAME * * SEVERITY * * DESCRIPTION * 

' eeneeeeee eeeeeeetanreaere eeeekercaeneeeeese 
(SEARCHFAIL, ERROR), ! Error while searching for file 
(OPENIN ERROR), ! Unable to open or connect to input 
(READERR, ERROR), i Error while reading input 
(CLOSEIN, ERROR), ! Unable to close output 
(OPE ¢ ERROR), ! Unable to create, open, or connect 

: to output 

(WRITEERR, ERROR), ! Error while writing output 
(CLOSEOUT, ERROR) ! Unable to close output 
(SYNTAX, SEVERE), ! Parse failure 


7 
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$2 


' Seen ose eB BB Ew TDSC OO wD OB OT SPSS RSS SBOE BOeE renew nwe TDi weBeBeTeDe ean on now owen e mre aee + 


EQUATED SYMBOLS | 


i eer ee eee Be FHM eS eB Of Pe BP HP ete BFZOB CSB Few eweeacwnwo woz eeeoe2wmrowrwre wo eszsenzoscoeoezacoaeeceoen= = * 


LITERAL 


‘ 
{FLAGS AND MISCELLANEOUS VALUES -- 


COLUMNS _PER - GROUP = 15, 

REC_PREFIX ~ 4 

ACCSK_UNKNOWN = ( 
= 


Ger graph column grouping factor 

ze of data oret zed to record 

Sootees he value 0 for unknown types 

Define List noe charater 


1 | 
‘QUALIFIER NUMBERS 
! Define local bitnumbers for qualifers (also used as symbol table index 

: numbers for summation). 

ACCOUNT 
BAR_GRAPH 
BEFORE 
BINARY 


USER 
ENTRY 


FULL 
IDENT 
IMAGE 
JOB 

LOG 
ADDRESS 
NODE 
OWNER 


OUTPUT 
PRIORITY 
PROCESS 
QUEUE 
REJECTED 
REMO it. ID 
REPOR 
cE 
AT 


SIN 
STATUS 
SORT 


COUNT 
EXPAND pare 
ule “MEMBER 


! See /REPORT parsing 


WRI DDNOAUS WIN O OONOAUES WN (“OOOO UE WN Oo 
ees eeeeeeseeeeeseseseeseseeseeseeseeseese ees 


WINIUIRORORONOPONENONNN 4 3 3 MP OOOOODOC0O 


ACCDEF .REQ;1 


SUMMATION_TABLE = 63, 
' 


iSUMMATION TYPES == 
' These numbers describes the various 
: in — records when /SUMMARY 


TYPE _ADD a 9. 

SUNT TYPETADDX =i, 
SUM_TYPE_PEAK = ¢° 
SUM_TYPE_INCR = 5, 
SUM~TYPE_ TYP: = 4, 
SUM-TYPE-ELA = 5, 
SUM_ENT_TYPE = 0, 
“ENT_ADR = 1. 
SUM_ENT_BSIZE = ¢° 
WENT _FAO = 3, 
SUM_ENT_HDR1 = 4, 
SUM-ENT_HDR2 = 5, 


(MAXIMUM TABLE SIZES -- 


' Sone Sty the maximum number of entrie 
value Lists for /SORT and /SUMMARIZE 
MAX _DEF AULT = 30, 
MAX_ SUM = MAX_DEFAULT, 
MAX_REPORT = MAX_DEFAULT, 
MAX_SORT = 10;~ 


is 
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Must be different than above numbers. 


ummation rules for fields 


invoked 


Simple Longword addition 
Extended Cenguery addition 
bongvoré peak value recording 
ncrement eee occurence 
Increment if type matches 
Summarize connect time 


Type of summation entry 

Address o* other value 

Accumulation bucket size in longwords 
Address of FAO directive 

Address of ist column header 


! Address of 2nd column header 


the user can make in qualifier 


Default maximum 
Maximum number of /SUMMARY values 
Maximum number of /REPORT values 
Sort keys -- sort package Limit 


32 
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